let rec fib = function
  | 1 -> 1
  | 2 -> 2
  | n -> fib (n-1) + fib (n-2)
;;
